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>>>>>>>>>:>>>>>>>>>>>>>>>>>>>>>>>> 
> 

> Module: Format Routines 

> 

> This module contains all but the very most primitive of 

> of procedures < the routines that are resident are I Is ted 

> in the external spec's ) that concern themselves with performing 

> a format operation. 

> 

> PROCEDURE Forma tTrackC Offset, Interleave > 

> PROCEDURE LocateSector 

> 

>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 
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> Procedure: Forma tTrack 

> This function is responsible for formatting the track at which 

> the heads are currently positioned. 

> 

> Inputs: 

> Offset : BVTE { !r4 > 

> Interleave : BVTE { !r5 > 

> 

> Outputs: { none > 

> 

> ft I gor i thm : 
BEGIN 

> For i := 1 TO LENGTHS Forroatflrray > DO 

> Forma tflrrayl i ] := 

> WHILE NOT< Index ) DO BEGIN END 

> Turn on flC erase { FmenL } 

> IF IndexMork 

> THEN 

> Turn Off fiC erase 

> WHILE < Offset > > DO 

> WHILE NOT< Sectorhark > DO BEGIN END 

> WHILE Sector-Mark DO BEGIN END 

> Offset := Offset - 1 

> InterLeoveFactor- := InterLeaveTableE Interleave ] 

> Sector := 

> FOR i := 1 TO Number Of Sectors DO 

> IF mid Formate lock ) THEN Rbort 

> Sector := < Sector + InterleaveFactor ) MOD NbrSctrs 

> END 
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.DO W_tOf1B 

InterTable: .DB 2, 1, 7, 10, 8, 13, 3 
.ELSE 

InterTable: .DB 2, 1, 26, 10, 8, 13, 22 
.FIH 

Forma tTrack : 

Ld !r2,«.HIBVTE. 2ero_Frot 

Ld !r3,*.L0WBVTE. 2ero_Fint 

Call BankJCall 

Or Disks tat, «WrJOp 

FmtT_1: Tm Port3,«lndexriark ; WHILE HOT< Index > 

Jr 2,Fn»tT_1 

find Porto, «$FF-ficEraseL ; turn on flC erase 

FffitT_2: Tm Port3,«lndexriark ; WHILE Index 

Jr Hz,FmtT_2 

FmtTJ3: Tm Port3,«tndexriark ; WHILE NOTC Index > 

Jr 2,FmtT^ 

Or PortO,*flcEraseL ;turn off flC erase 

Or !r4, !r4 ;test for offset 

Jr 2,Ffflt_Begin 

Fm t J3 f f 1 : find I rq , *$FF- 1 r q JSec tor ; c I ear old sec tor mark 

F!ntJ0ff2: Tm jrq,»lrqjSector ;wait for mark to pass 

Jr 2,FmtJ0ff2 

DJnz !r4,FmtJ0ff1 

Fmt_Begln: Ld !r2,».HIBVTE. InterTable 

Ld lr3,«.L0WBVTE. InterTable 

fidd !r3, !r5 ;qet offset into table 

fldc Jr2,«0 

Ldc !r6,e?!r2 

CIr Sector ; sec tor := 

Ld !r5,«ribrSctrs 

Fm tTrk J2 : Ld ! r 1, ^Dm t_Fm tTrk 

Call Formats lock 

Jr N2,FffitTJUntil 

Ld Ir9, !rO ;pass reason for abort 

Call fibort 

FmtTJUnt i I : Add Sector, I r6 ; Sector := Sector + InterLeaueFactor 

Cp Sector, «NbrSctrs ; Sector := Sector HOD HbrSctrs 

Jr Lt,FmtT2JLlntil 

Sub Sector, «NbrSctrs ;do MOD by subtraction 

FmtT2JUntil: Djnz !r5,FffltTrk_2 

Jp Bank_Ret 
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;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 
; > 

;> Procedure: LocateSector 

;> 

;> This procedure returns to the caller just after the sector 

;> mark representing the sector JUST BEFORE the sector of the 

;> last seek address. 
; > 

;> Inputs: { none ) 

;> Outputs: { none } 

;> 

;> Global Uar tables Used: 

; > Sector 

";> 

;> Algorithm: 

• > 

;> BEGIN 

;> Offset := Spar eTabie.FmtOff set 

;> InterL := Spar eTable. Interleave 

;> SectorCount := 

;> Temp := 

■;> WHILE NOT< Index > DO BEGIN END 

;> I4HILE < Offset <> > DO 

;> Wait For End of Sector Nark 

;> WHILE < Temp NOD NbrSctrs <> Sector > DO 

;> Temp := Temp + InterL 

;> i := t + 2 { count sectors at 2:1 inter leave > 

;> WHILE C i <> > DO 

;> Wait For End Of Sector Nark 

i> i := i - 1 

;> END 

■ > 

;>>>>>>>:>>>>>>>>>>>>>>>>>>>>>>>>> 
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LocateSector: 

Ld 
Cal I 

Push 
Srp 

Ld 
Ld 
Lde 

Or 
Jr 

Swap 

LctJOffset: find 

I new 
Lde 

Ld 



!rO,«Dmt_LctSctr 
SetJJmt 

Rp ;save context 
«WrkJSys2 

lr2,».HIBVTE. FmtJOffset 
I r3, « . LOWBVTE . FmtJOffset 
!r4^§l!r2 ;load offset value 
Head, Head ; check for even /odd head 
2, LctJOffset 
!r4 

{r4,«$0F 

! ! r2 ; po i n t to i n ter I eave va I ue 
Ir5,g!lr2 

!r2 ».HIBVTE. InterTable 



Ld ?r3,«.L0UBVTE. InterTable 

fidd !r3Jr5 ;add in interleave value 

fldc !r2,«0 

Ldc !r5^?!!r2 ;get real Interleave value 

LctSctrl: Tm Port3,«lndexriark ; WHILE Index DO BEGIM END 

Jr Nz, LctSctrl 

LctSctr2: Tm Port3,«lndext1ark ;MHILE Not< Index ) DO BEGIN END 

Jr Z,LctSctr2 

Rnd lrq^*$FF-lrq_Sector ; clear any old sector marks 

Or !r4Jr4 ;IF Offset = THEN we're already here! 

Jr Z,LctSctr4 

Ld !r2, !r4 

Call LctSctr3 

LctSctr4: Or Sector^ Sector ; IF Sector = THEN We're already there 

Jr 2 , LctDone 

CIr !r2 

CIr !r4 

LctSctr5: Cp !r 4, Sector ;see if «Aie've found the sector 

Jr 2.LctSetr& 

Rdd Ir2,«2 

Add Ir4, !r5 ; temp := Temp + InterLeave Factor 

Cp !r4,«NbrSctrs ; temp := temp MOD NbrSctrs 

Jr Lt,LctSctr5 

Sub !r4,»NbrSctrs 

Jr LctSctrS 

LctSctr6: Call LctSctrS 

Lc tDone : Ca If C i r _Dm t 

Pop Rp ; res tore original context 

Jp Bank_Bet 

LctSctrS: Tm lrq^*lrq_Sector jwa it for next sector 

Jr LctSctrS 

find lrq,*$FF-lrq_Sector ;mask old interrupt 

OJnz !r 2, LctSctrS ; count the number of sector In offset 

Ret 
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